home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Linux / Kubuntu 8.10 / kubuntu-8.10-desktop-i386.iso / casper / filesystem.squashfs / usr / share / perl / 5.10.0 / hostname.pl < prev    next >
Text File  |  2008-07-24  |  727b  |  32 lines
  1. # From: asherman@fmrco.com (Aaron Sherman)
  2. #
  3. # This library is no longer being maintained, and is included for backward
  4. # compatibility with Perl 4 programs which may require it.
  5. #
  6. # In particular, this should not be used as an example of modern Perl
  7. # programming techniques.
  8. #
  9. # Suggested alternative: Sys::Hostname
  10. #
  11. sub hostname
  12. {
  13.     local(*P,@tmp,$hostname,$_);
  14.     if (open(P,"hostname 2>&1 |") && (@tmp = <P>) && close(P))
  15.     {
  16.         chop($hostname = $tmp[$#tmp]);
  17.     }
  18.     elsif (open(P,"uname -n 2>&1 |") && (@tmp = <P>) && close(P))
  19.     {
  20.         chop($hostname = $tmp[$#tmp]);
  21.     }
  22.     else
  23.     {
  24.         die "$0: Cannot get hostname from 'hostname' or 'uname -n'\n";
  25.     }
  26.     @tmp = ();
  27.     close P; # Just in case we failed in an odd spot....
  28.     $hostname;
  29. }
  30.  
  31. 1;
  32.